home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / calendar.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  114 lines
  1. 1000 REM"[208]ROGRAMME [195][193][204][197][206][196][210][201][197][210]
  2. 1010 [143]"(null)ROGRAM   LENATN(null)VAL(null)STR$ATN(null)
  3. 1020 REM
  4. 1030 REM"PAR/BY   [208]ATRICK [217][193][206][199]
  5. 1040 [143]"POUR/FOR   LENPEEK(null) 64   AVEC/WITH
  6. 1050 REM"IMPRIMANTE [199][197][205][201][206][201]-10[216] PRINTER
  7. 1060 [143]"INTERFACE USED/UTILISE (null)ECONDARY ADRESS
  8. 1070 REM                        5 PRINTER CHARACTER SET  NO LINE FEED IS SENT
  9. 1080 REM                        7 UPPER/LOWER CASE       AFTER CARRIAGE RETURN
  10. 1090 REM
  11. 1100 DIM M$(50,1),DUREE(11)
  12. 1110 PRINT CHR$(147)CHR$(14);TAB(6)"*** [195][193][204][197][206][196][210][201][197][210]/[195][193][204][197][206][196][193][210] ***"
  13. 1120 FOR I=0 TO 29
  14. 1130 FOR J=0 TO 1
  15. 1140 READ M$(I,J)
  16. 1150 NEXT J,I
  17. 1160 PRINT:PRINT:PRINT:PRINT M$(0,1)
  18. 1170 FOR I=0 TO 11:READ DUREE(I):NEXT I
  19. 1180 PRINT:PRINT M$(0,0)
  20. 1190 E$=CHR$(27)
  21. 1200 GET R$:IF R$="" THEN 1200
  22. 1210 IF R$="E" OR R$="[197]" OR R$="A" OR R$="[193]" THEN LANGUE=1:GOTO 1240
  23. 1220 IF R$="F" OR R$="[198]" THEN LA=0:GOTO 1240
  24. 1230 PRINT"[197],[198] OU/OR [193] !":GOTO 1200
  25. 1240 PRINT:PRINT M$(1,LA)
  26. 1250 PRINT:PRINT M$(2,LA)
  27. 1260 GET R$:IF R$="" THEN 1260
  28. 1270 IF R$="A" OR R$="[193]" OR R$="Y" OR R$="[217]" THEN FLAG=1:GOTO 1300
  29. 1280 IF R$="M" OR R$="[205]" THEN FLAG=2:GOTO 1300
  30. 1290 PRINT "[193],[217] OU/OR [205] !":GOTO 1260
  31. 1300 IF FLAG=1 THEN B1=1:B2=12:GOTO1330
  32. 1310 PRINT M$(4,LA);:INPUT B1:B2=B1
  33. 1320 IF B1<1 OR B1>12 THEN 1310
  34. 1330 PRINT M$(3,LA);" (>1582)";:INPUT ANNEE
  35. 1340 IF AN<1582 THEN 1330
  36. 1350 YEAR$=RIGHT$(STR$(AN),4)
  37. 1360 FOR I=1 TO 4:ANNEE$=AN$+"  "+MID$(YE$,I,1):NEXT I
  38. 1370 OPEN 4,4,5:PRINT#4,E$"@"E$"E"E$"G";:CLOSE 4
  39. 1380 FOR I=B1 TO B2
  40. 1390 ES=28-LEN(M$(I+4,LA))
  41. 1400 OPEN 4,4,5:PRINT#4,E$"W"CHR$(1)E$"-"CHR$(0)E$CHR$(97)CHR$(5);:CLOSE 4
  42. 1410 OPEN 4,4,7:PRINT#4,M$(I+4,LA);:PRINT#4,SPC(ES)AN$:CLOSE 4
  43. 1420 OPEN 4,4,5:PRINT#4,E$"W"CHR$(0)E$CHR$(45)CHR$(1)
  44. 1430 PRINT#4,E$CHR$(97)CHR$(7):CLOSE 4
  45. 1440 OPEN 4,4,7
  46. 1450 FOR J=1 TO 80:PRINT#4,"-";:NEXT J
  47. 1460 FOR J=0 TO 5:PRINT#4,M$(J+17,LA)+"  ";:NEXT J:PRINT#4,M$(23,LA):CLOSE 4
  48. 1470 OPEN 4,4,5:PRINT#4,E$"-"CHR$(0)
  49. 1480 PRINT#4,E$CHR$(97)CHR$(5):CLOSE 4
  50. 1490 DU=DU(I-1)
  51. 1500 IF DU>28 THEN GOTO 1540
  52. 1510 J=29:M=2:A=AN:GOSUB 1780:J1=JS
  53. 1520 J=1:M=3:A=AN:GOSUB 1780:J2=JS
  54. 1530 IF J2<>J1 THEN DU=29
  55. 1540 OPEN 4,4,5:PRINT#4,E$"W"CHR$(1);
  56. 1550 J=1:M=I:A=AN:GOSUB 1780:K=2
  57. 1560 JS=JS-1:IF JS=-1 THEN JS=6
  58. 1570 ES=5*(JS+2):PRINT#4,SPC(6*JS+1);1;"  ";
  59. 1580 K$=STR$(K):IF K<10 THEN K$=" "+K$
  60. 1590 IF ES>39 THEN PRINT#4,E$CHR$(97)CHR$(4):ES=5
  61. 1600 ES=ES+5
  62. 1610 PRINT#4,K$;SPC(3);
  63. 1620 K=K+1:IF K<=DU THEN 1580
  64. 1630 CLOSE 4:L=29.530589:OPEN 4,4,5
  65. 1640 PRINT#4,E$CHR$(87)CHR$(0)E$CHR$(66)CHR$(3);
  66. 1650 PRINT#4,E$CHR$(97)CHR$(3):CLOSE 4:OPEN 4,4,9
  67. 1660 FOR J=1 TO 15:GOSUB 1780
  68. 1670 LU=(F-722989)/L+5000
  69. 1680 LU=INT((LU-INT(LU))*L*10+.5)/10
  70. 1690 PH=LU/7.4
  71. 1700 IF (PH-INT(PH))>1/7.4 THEN NEXT J
  72. 1710 PRINT#4,M$(24+PH,LA)M$(29,LA);INT(J)
  73. 1720 J=J+7.4:IF J<DU THEN PH=-(PH<3.5)*PH:PH=PH+1:GOTO 1710
  74. 1730 PRINT#4,CHR$(10)
  75. 1740 CLOSE 4:OPEN 4,4,5
  76. 1750 PRINT#4,CHR$(12)
  77. 1760 CLOSE 4:NEXT I
  78. 1770 END
  79. 1780 IF M>2 THEN 1800
  80. 1790 F=365*A+J+31*(M-1)+INT((A-1)/4)-INT(.75*(INT(((A-1)/100)+1))):GOTO 1810
  81. 1800 F=365*A+J+31*(M-1)-INT(.4*M+2.3)+INT(A/4)-INT(.75*(INT(A/100)+1)):GOTO 1810
  82. 1810 JS=F-(INT(F/7)*7)
  83. 1820 RETURN
  84. 1830 END
  85. 1840 DATA "[214]OULEZ-VOUS LA VERSION ([198])RANCAISE OU   ([193])NGLAISE ?"
  86. 1850 DATA "[196]O YOU WANT THE ([197])NGLISH OR ([198])RENCH   VERSION ?"
  87. 1860 DATA "[214]OUS AVEZ CHOISI LE FRANCAIS.","[217]OU CHOSE ENGLISH."
  88. 1870 DATA "[214]OULEZ-VOUS UNE ([193])NNEE COMPLETE OU UN  SEUL ([205])OIS"
  89. 1880 DATA "[196]O YOU WANT A COMPLETE ([217])EAR OR A      SINGLE ([205])ONTH"
  90. 1890 DATA "[204]'ANNEE","[212]HE YEAR","[204]E MOIS (1-12)","[212]HE MONTH (1-12)"
  91. 1900 DATA "[202]  [193]  [206]  [214]  [201]  [197]  [210]","[202]  [193]  [206]  [213]  [193]  [210]  [217]"
  92. 1910 DATA "[198]  [197]  [214]  [210]  [201]  [197]  [210]","[198]  [197]  [194]  [210]  [213]  [193]  [210]  [217]"
  93. 1920 DATA "[205]  [193]  [210]  [211]","[205]  [193]  [210]  [195]  [200]"                          
  94. 1930 DATA "[193]  [214]  [210]  [201]  [204]","[193]  [208]  [210]  [201]  [204]"
  95. 1940 DATA "[205]  [193]  [201]","[205]  [193]  [217]"
  96. 1950 DATA "[202]  [213]  [201]  [206]","[202]  [213]  [206]  [197]"
  97. 1960 DATA "[202]  [213]  [201]  [204]  [204]  [197]  [212]","[202]  [213]  [204]  [217]"
  98. 1970 DATA "[193]  [207]  [213]  [212]","[193]  [213]  [199]  [213]  [211]  [212]"
  99. 1980 DATA "[211]  [197]  [208]  [212]  [197]  [205]  [194]  [210]  [197]","[211]  [197]  [208]  [212]  [197]  [205]  [194]  [197]  [210]"
  100. 1990 DATA "[207]  [195]  [212]  [207]  [194]  [210]  [197]","[207]  [195]  [212]  [207]  [194]  [197]  [210]"
  101. 2000 DATA "[206]  [207]  [214]  [197]  [205]  [194]  [210]  [197]","[206]  [207]  [214]  [197]  [205]  [194]  [197]  [210]"
  102. 2010 DATA "[196]  [197]  [195]  [197]  [205]  [194]  [210]  [197]","[196]  [197]  [195]  [197]  [205]  [194]  [197]  [210]"
  103. 2020 DATA "[196]IMANCHE  ","[211]UNDAY    ","[204]UNDI     ","[205]ONDAY    "
  104. 2030 DATA "[205]ARDI     ","[212]UESDAY   ","[205]ERCREDI  ","[215]EDNESDAY "
  105. 2040 DATA "[202]EUDI     ","[212]HURSDAY  ","[214]ENDREDI  ","[198]RIDAY    "
  106. 2050 DATA "[211]AMEDI  ","[211]ATURDAY"
  107. 2060 DATA "[206]OUVELLE LUNE","[206]EW MOON"
  108. 2070 DATA "[208]REMIER QUARTIER","[198]IRST QUARTER"
  109. 2080 DATA "[208]LEINE LUNE","[198]ULL MOON"
  110. 2090 DATA "[196]ERNIER QUARTIER","[204]AST QUARTER"
  111. 2100 DATA "[206]OUVELLE LUNE","[206]EW MOON"
  112. 2110 DATA ", LE",", ON THE"
  113. 2120 DATA 31,28,31,30,31,30,31,31,30,31,30,31
  114.